home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / bbs / l2100.zip / GAMBLE.REF < prev    next >
Text File  |  1997-06-01  |  17KB  |  1,084 lines

  1. ;Gambling Casino for Lord II: New World
  2. ;Lord II: New World written by Seth A. Robinson
  3. ;Gambling Casino written by Davey Case
  4. ;You can e-mail your questions and comments to toadhall@chatlink.com
  5. ;Currently has: Craps, Slots
  6.  
  7. ;5-16-97 touched up by Seth A. Robinson, added colors, 'per day' limits
  8. ;and fixed it so Oranges worked in slots.
  9. ;5-30-97 Townent added by Pap & Seth
  10. ;townent
  11.  
  12. @#TOWNENT
  13. ;For entering bonetown..
  14. @do `v01 is 1
  15. @if bounty.&playernum exist true then do
  16.   @begin
  17.   @do x is 77
  18.   @do y is 15
  19.   @do map is 1287
  20.   @loadmap 1287
  21.   @drawmap
  22.   @update
  23.   @do saybar
  24.   `0"Go right in Bounty s&boy .. hehe"
  25.   @closescript
  26.   @end
  27. ;Positive Alignment
  28. @if `p07 > 0 then do
  29.  @begin
  30.   @do moveback
  31.   @do `v01 is 1
  32.   @show
  33. `r0`c  `r1  `%BoneTown Gates  `r0
  34.  
  35.   `0"Hey there goody s&boy, nice people like you need to pay a fee to
  36.   get into our little playground.  500 gold like now!"  `2demands the
  37.   big guard.
  38.  
  39.   `%You have `$$&money `%gold.`2
  40.  
  41. @do write
  42. `x`x
  43. @choice
  44. >&money 499 Pay the fee
  45. Forget it!
  46. @if response is 1 then do
  47.   @begin
  48.    @do money - 500
  49.    @show
  50. `\`\  `0"Thanks very much, go right in ..."
  51. `\`k
  52.    @do x is 77
  53.    @do y is 15
  54.    @do map is 1287
  55.    @loadmap 1287
  56.    @drawmap
  57.    @update
  58.    @closescript
  59.   @end
  60. @drawmap
  61. @update
  62. @closescript
  63. @end
  64. ;OtherWise negative
  65.   @do moveback
  66.   @do `v01 is 1
  67.   @show
  68. `r0`c  `r1  `%BoneTown Gates  `r0
  69.  
  70.   `0"Hey there my fine criminal, for you I'll make it a small fee to get
  71.   into our little playground.  Like only 10 gold for you."  `2states the
  72.   big guard.
  73.  
  74.   `%You have `$$&money `%gold.`2
  75.  
  76. @do write
  77. `x`x
  78. @choice
  79. >&money 9 Pay the fee
  80. Forget it!
  81. @if response is 1 then do
  82.   @begin
  83.    @do money - 10
  84.    @show
  85. `\`\  `0"Thanks very much, go right in ..."
  86. `\`k
  87.    @do x is 77
  88.    @do y is 15
  89.    @do map is 1287
  90.    @loadmap 1287
  91.    @drawmap
  92.    @update
  93.    @closescript
  94.   @end
  95. @drawmap
  96. @update
  97.  
  98. @#enter
  99. ;Going into the casino, made to bother those with bounties.
  100. @if bounty.&playernum exist true then do
  101.   @begin
  102.   ;if they HAVE a bounty on them
  103.   @do moveback
  104.   @DO SAYBAR
  105.   `0"No one with a price on s&his head comes in here."
  106.   @closescript
  107.   @end
  108. ;If they don't have a bounty on them
  109. @do x is 34
  110. @do y is 17
  111. @do map is 1288
  112. @loadmap 1288
  113. @drawmap
  114. @update
  115.  
  116. @#help
  117.  @show
  118. `r0`c  `r1 Craps Help `r0
  119.  
  120.   `2If you roll a `02`2, `03`2, or a `012`2 on your first roll, you lose.
  121.   If you roll a `07`2 or an `011`2 on your first roll, you win.
  122.  
  123.  `2 Otherwise, the dice are rolled until the total of the
  124.   first roll is rolled again, in which case the player
  125.   wins. But if a `07`2 or an `011`2 is rolled after the first
  126.   roll, you lose.
  127.  
  128.   Good luck!
  129.  
  130. `k
  131.  @do goto craps
  132.  @end
  133.  
  134. @#crapstart
  135.  
  136. @do `v01 is 1
  137. @do goto craps
  138.  
  139. @#craps
  140. @do moveback
  141. @busy
  142. @do `p24 is 0
  143. @do `p21 is money
  144. @show
  145. `r0`c  `r1 Playing some Craps `r0
  146.  
  147.   `2You have `$$`p21`2.  How much do you want to wager? `2(`0`p33 `2gambles left`2)
  148.  
  149. @do write
  150. `x`x
  151. @choice
  152. $5
  153. $10
  154. $20
  155. $50
  156. $100
  157. Help on craps
  158. Leave
  159. @if response is 6 then do
  160.   @begin
  161.   @do goto help
  162.   @end
  163.  
  164.  
  165. @if responce = 1 then do
  166.  @begin
  167.  @if `p21 < 5 then do
  168.   @begin
  169.   @do goto nomoney
  170.   @end
  171.  @do `p20 is 5
  172.  @do goto begin1
  173.  @end
  174. @if responce = 2 then do
  175.  @begin
  176.  @if `p21 < 10 then do
  177.   @begin
  178.   @do goto nomoney
  179.   @end
  180.  @do `p20 is 10
  181.  @do goto begin1
  182.  @end
  183. @if responce = 3 then do
  184.  @begin
  185.  @if `p21 < 20 then do
  186.   @begin
  187.   @do goto nomoney
  188.   @end
  189.  @do `p20 is 20
  190.  @do goto begin1
  191.  @end
  192. @if responce = 4 then do
  193.  @begin
  194.  @if `p21 < 50 then do
  195.   @begin
  196.   @do goto nomoney
  197.   @end
  198.  @do `p20 is 50
  199.  @do goto begin1
  200.  @end
  201. @if responce = 5 then do
  202.  @begin
  203.  @if `p21 < 100 then do
  204.   @begin
  205.   @do goto nomoney
  206.   @end
  207.  @do `p20 is 100
  208.  @do goto begin1
  209.  @end
  210. @if response = 7 then do
  211.  @begin
  212.  @do goto ending
  213.  @end
  214. @label begin1
  215. @if `p33 < 1 then do
  216.   @begin
  217.   @show
  218. `r0`c  `r1 `%You carefully spit on the dice for good luck. `r0
  219.  
  220. `2  `4A hand catches yours before you can roll.
  221. `\`k  `0"You've gambled enough for today we think, kid.  Come back
  222.   tomorrow," `2 a greasy looking fellow explains.
  223. `\`k
  224.   @drawmap
  225.   @update
  226.   @closescript
  227.   @end
  228.  
  229. @do `p33 - 1
  230. @show
  231. `r0`c  `r1 `%You carefully spit on the dice for good luck. `r0
  232.  
  233. @do `p22 random 5 1
  234. @do `p23 random 5 1
  235. @do `p24 + `p22
  236. @do `p24 + `p23
  237. @show
  238.   `0First Roll....
  239.  
  240. @show
  241.   `2Die #1`0: `p22
  242.   `2Die #2:`0 `p23
  243.  
  244.   `2Total: `0`p24
  245.  
  246. @if `p24 = 2 then do
  247.  @begin
  248.  @show
  249.  
  250.   `4Snake Eyes!
  251.  @do goto lose
  252.  @end
  253. @if `p24 = 3 then do
  254.  @begin
  255.  @show
  256.   `4Cock Eyes!
  257.  @do goto lose
  258.  @end
  259. @if `p24 = 12 then do
  260.  @begin
  261.  @show
  262.   `4Boxcars!
  263.  @do goto lose
  264.  @end
  265. @if `p24 = 7 then do
  266.  @begin
  267.  @show
  268.   `%A Natural!
  269.  @do goto win
  270.  @end
  271. @if `p24 = 11 then do
  272.  @begin
  273.  @show
  274.   `%A Natural!
  275.  @do goto win
  276.  @end
  277. @show
  278.   `0`p24`2 is your point.
  279. @label nextroll
  280. @do `p25 is 0
  281. @show
  282.  
  283.   Press a key to roll again.
  284. @do `p22 random 5 1
  285. @do `p23 random 5 1
  286. @do `p25 + `p22
  287. @do `p25 + `p23
  288. @show
  289. `\`k  `2Die #1: `0`p22
  290.   `2Die #2: `0`p23
  291.  
  292.   `2Total: `0`p25
  293. @if `p25 = `p24 then do
  294.  @begin
  295.  @do goto hit
  296.  @end
  297. @if `p25 = 7 then do
  298.  @begin
  299.  @do goto crapout
  300.  @end
  301. @if `p25 = 11 then do
  302.  @begin
  303.  @do goto crapout
  304.  @end
  305. @show
  306.  
  307.   `2Not your point, keep rolling the bones!
  308. @do goto nextroll
  309. @label hit
  310. @show
  311.  
  312.   `0Yes! You hit your point.
  313. @label win
  314. @show
  315.  
  316.   `2You win your bet of: `$$`p20`2!
  317. @if `p20 = 5 then do
  318.  @begin
  319.  @do money + 5
  320.  @end
  321. @if `p20 = 10 then do
  322.  @begin
  323.  @do money + 10
  324.  @end
  325. @if `p20 = 20 then do
  326.  @begin
  327.  @do money + 20
  328.  @end
  329. @if `p20 = 50 then do
  330.  @begin
  331.  @do money + 50
  332.  @end
  333. @if `p20 = 100 then do
  334.  @begin
  335.  @do money + 100
  336.  @end
  337. @do goto bottom
  338. @label crapout
  339. @show
  340.  
  341.   `4You crapped out!
  342. @label lose
  343. @show
  344.  
  345.   `2You lose your bet of: `$$`p20`2.
  346. @if `p20 = 5 then do
  347.  @begin
  348.  @do money - 5
  349.  @end
  350. @if `p20 = 10 then do
  351.  @begin
  352.  @do money - 10
  353.  @end
  354. @if `p20 = 20 then do
  355.  @begin
  356.  @do money - 20
  357.  @end
  358. @if `p20 = 50 then do
  359.  @begin
  360.  @do money - 50
  361.  @end
  362. @if `p20 = 100 then do
  363.  @begin
  364.  @do money - 100
  365.  @end
  366. @label bottom
  367. @show
  368. `\`k
  369. @do goto craps
  370. @label nomoney
  371. @show
  372. `\`\  `4I'm sorry, but you don't have enough money for that bet.
  373.  
  374. `k
  375. @do goto craps
  376.  
  377. @#slotstart
  378. @show
  379. `r0`c  `r1 Welcome to the slot machines! `r0
  380.  
  381.   `0Payoffs are:`2
  382.  
  383.   `03 Bars`2....................................................`0100 `2to `01
  384.   3 Bells`2....................................................`080`2 to `01
  385.   3 Lemons`2...................................................`050 `2to `01
  386.   3 Plums`2....................................................`030 `2to `01
  387.   3 Peaches`2..................................................`025 `2to `01
  388.   3 Oranges`2..................................................`010 `2to `01
  389.   2 Bars & 1 Bell`2............................................`010 `2to `01
  390.   2 Bells & 1 Lemon`2...........................................`09 `2to `01
  391.   2 Lemons & 1 Plum`2...........................................`08 `2to `01
  392.   2 Plums & 1 Peach`2...........................................`07 `2to `01
  393.   2 Peaches & 1 Orange`2........................................`05 `2to `01
  394.   2 Oranges & Anything`2........................................`02 `2to `01
  395.  
  396. `k
  397. @do `v01 is 1
  398. @do goto slots
  399.  
  400. @#slots
  401. @busy
  402. @do moveback
  403. @do `p20 is 0
  404. @do `p21 is 0
  405. @do `p22 is 0
  406. @do `p23 is 0
  407. @do `p24 is 0
  408. @do `p25 is 0
  409. @show
  410. `r0`c `% `r1 Pulling your lever `r0
  411.  
  412. `2  You now have: `$$&money`2.  Put how much in the machine? `2(`0`p33`2 gambles left)
  413.  
  414. @do write
  415. `x`x
  416. @choice
  417. $1
  418. $2
  419. $5
  420. $10
  421. $20
  422. Show payoffs
  423. Leave
  424. @if response is 6 then goto slotstart
  425.  
  426. @if responce = 1 then do
  427.  @begin
  428.  @do `p21 is 1
  429.  @end
  430. @if responce = 2 then do
  431.  @begin
  432.  @do `p21 is 2
  433.  @end
  434. @if responce = 3 then do
  435.  @begin
  436.  @do `p21 is 5
  437.  @end
  438. @if responce = 4 then do
  439.  @begin
  440.  @do `p21 is 10
  441.  @end
  442. @if responce = 5 then do
  443.  @begin
  444.  @do `p21 is 20
  445.  @end
  446. @if responce = 7 then do
  447.  @begin
  448.  @do goto ending
  449.  @end
  450. @if money < `p21 then do
  451.  @begin
  452.  @show
  453.  
  454.   `4You don't have that much money!
  455.  @key
  456.  @do goto slots
  457.  @end
  458.  
  459. @if `p33 < 1 then do
  460.   @begin
  461.   @show
  462. `r0`c  `r1 `%You grab the level firmly `r0
  463.  
  464. `2  `4A hand catches yours before you can pull.
  465. `\`k  `0"You've gambled enough for today we think, kid.  Come back
  466.   tomorrow," `2 a greasy looking fellow explains.
  467. `\`k
  468.   @drawmap
  469.   @update
  470.   @closescript
  471.   @end
  472. @do `p33 - 1
  473.  
  474. @show
  475. `\`\  `2You pull the lever as hard as you can.`\
  476. @do `p22 random 6 1
  477. @if `p22 = 1 then do
  478.  @begin
  479.  @show
  480.   `%Bar
  481.  @do `p23 + 300000
  482.  @end
  483. @if `p22 = 2 then do
  484.  @begin
  485.  @show
  486.   `7Bell
  487.  @do `p23 + 20000
  488.  @end
  489. @if `p22 = 3 then do
  490.  @begin
  491.  @show
  492.   `$Lemon
  493.  @do `p23 + 3000
  494.  @end
  495. @if `p22 = 4 then do
  496.  @begin
  497.  @show
  498.   `5Plum
  499.  @do `p23 + 100
  500.  @end
  501. @if `p22 = 5 then do
  502.  @begin
  503.  @show
  504.   `6Peach
  505.  @do `p23 + 20
  506.  @end
  507. @if `p22 = 6 then do
  508.  @begin
  509.  @show
  510.   `6Orange
  511.  @do `p23 + 3
  512.  @end
  513. @do `p22 random 6 1
  514. @if `p22 = 1 then do
  515.  @begin
  516.  @show
  517.   `%Bar
  518.  @do `p23 + 300000
  519.  @end
  520. @if `p22 = 2 then do
  521.  @begin
  522.  @show
  523.   `7Bell
  524.  @do `p23 + 20000
  525.  @end
  526. @if `p22 = 3 then do
  527.  @begin
  528.  @show
  529.   `$Lemon
  530.  @do `p23 + 3000
  531.  @end
  532. @if `p22 = 4 then do
  533.  @begin
  534.  @show
  535.   `5Plum
  536.  @do `p23 + 100
  537.  @end
  538. @if `p22 = 5 then do
  539.  @begin
  540.  @show
  541.   `6Peach
  542.  @do `p23 + 20
  543.  @end
  544. @if `p22 = 6 then do
  545.  @begin
  546.  @show
  547.   `6Orange
  548.  @do `p23 + 3
  549.  @end
  550. @do `p22 random 6 1
  551. @if `p22 = 1 then do
  552.  @begin
  553.  @show
  554.   `%Bar
  555.  @do `p23 + 300000
  556.  @end
  557. @if `p22 = 2 then do
  558.  @begin
  559.  @show
  560.   `7Bell
  561.    @do `p23 + 20000
  562.  @end
  563. @if `p22 = 3 then do
  564.  @begin
  565.  @show
  566.   `$Lemon
  567.  @do `p23 + 3000
  568.  @end
  569. @if `p22 = 4 then do
  570.  @begin
  571.  @show
  572.   `5Plum
  573.  @do `p23 + 100
  574.  @end
  575. @if `p22 = 5 then do
  576.  @begin
  577.  @show
  578.   `6Peach
  579.  @do `p23 + 20
  580.  @end
  581. @if `p22 = 6 then do
  582.  @begin
  583.  @show
  584.   `6Orange
  585.  @do `p23 + 3
  586.  @end
  587. @do `p24 is `p21
  588. @if `p23 = 900000 then do
  589.  @begin
  590.  @show
  591.  
  592.   `%Jackpot!!! `0100 `2to `01`2 payoffs!!
  593.  
  594.  @if `p21 = 1 then do
  595.   @begin
  596.   @do money + 100
  597.   @end
  598.  @if `p21 = 2 then do
  599.   @begin
  600.   @do money + 200
  601.   @end
  602.  @if `p21 = 5 then do
  603.   @begin
  604.   @do money + 500
  605.   @end
  606.  @if `p21 = 10 then do
  607.   @begin
  608.   @do money + 1000
  609.   @end
  610.  @if `p21 = 20 then do
  611.   @begin
  612.   @do money + 2000
  613.   @end
  614.  @key
  615.  @do goto slots
  616.  @end
  617. @if `p23 = 60000 then do
  618.  @begin
  619.  @show
  620.  
  621.   `2You win at `080`2 to `01`2 payoffs!
  622.  
  623.  @if `p21 = 1 then do
  624.   @begin
  625.   @do money + 80
  626.   @end
  627.  @if `p21 = 2 then do
  628.   @begin
  629.   @do money + 160
  630.   @end
  631.  @if `p21 = 5 then do
  632.   @begin
  633.   @do money + 400
  634.   @end
  635.  @if `p21 = 10 then do
  636.   @begin
  637.   @do money + 800
  638.   @end
  639.  @if `p21 = 20 then do
  640.   @begin
  641.   @do money + 1600
  642.   @end
  643.  @key
  644.  @do goto slots
  645.  @end
  646. @if `p23 = 9000 then do
  647.  @begin
  648.  @show
  649.  
  650.   `2You win at `050`2 to `01`2 payoffs!
  651.  
  652.  @if `p21 = 1 then do
  653.   @begin
  654.   @do money + 50
  655.   @end
  656.  @if `p21 = 2 then do
  657.   @begin
  658.   @do money + 100
  659.   @end
  660.  @if `p21 = 5 then do
  661.   @begin
  662.   @do money + 250
  663.   @end
  664.  @if `p21 = 10 then do
  665.   @begin
  666.   @do money + 500
  667.   @end
  668.  @if `p21 = 20 then do
  669.   @begin
  670.   @do money + 1000
  671.   @end
  672.  @key
  673.  @do goto slots
  674.  @end
  675. @if `p23 = 300 then do
  676.  @begin
  677.  @show
  678.  
  679.   `2You win at `030`2 to `01`2 payoffs!
  680.  
  681.  @if `p21 = 1 then do
  682.   @begin
  683.   @do money + 30
  684.   @end
  685.  @if `p21 = 2 then do
  686.   @begin
  687.   @do money + 60
  688.   @end
  689.  @if `p21 = 5 then do
  690.   @begin
  691.   @do money + 150
  692.   @end
  693.  @if `p21 = 10 then do
  694.   @begin
  695.   @do money + 300
  696.   @end
  697.  @if `p21 = 20 then do
  698.   @begin
  699.   @do money + 600
  700.   @end
  701.  @key
  702.  @do goto slots
  703.  @end
  704. @if `p23 = 60 then do
  705.  @begin
  706.  @show
  707.  
  708.   `2You win at `025`2 to `01`2 payoffs!
  709.  
  710.  @if `p21 = 1 then do
  711.   @begin
  712.   @do money + 25
  713.   @end
  714.  @if `p21 = 2 then do
  715.   @begin
  716.   @do money + 50
  717.   @end
  718.  @if `p21 = 5 then do
  719.   @begin
  720.   @do money + 125
  721.   @end
  722.  @if `p21 = 10 then do
  723.   @begin
  724.   @do money + 250
  725.   @end
  726.  @if `p21 = 20 then do
  727.   @begin
  728.   @do money + 500
  729.   @end
  730.  @key
  731.  @do goto slots
  732.  @end
  733. @if `p23 = 9 then do
  734.  @begin
  735.  @show
  736.  
  737.   `2You win at `010`2 to`0 1`2 payoffs.
  738.  
  739.  @if `p21 = 1 then do
  740.   @begin
  741.   @do money + 10
  742.   @end
  743.  @if `p21 = 2 then do
  744.   @begin
  745.   @do money + 20
  746.   @end
  747.  @if `p21 = 5 then do
  748.   @begin
  749.   @do money + 50
  750.   @end
  751.  @if `p21 = 10 then do
  752.   @begin
  753.   @do money + 100
  754.   @end
  755.  @if `p21 = 20 then do
  756.   @begin
  757.   @do money + 200
  758.   @end
  759.  @key
  760.  @do goto slots
  761.  @end
  762. @if `p23 = 620000 then do
  763.  @begin
  764.  @show
  765.  
  766.   `2You win at `010`2 to `01`2 payoffs.
  767.  
  768.  @if `p21 = 1 then do
  769.   @begin
  770.   @do money + 10
  771.   @end
  772.  @if `p21 = 2 then do
  773.   @begin
  774.   @do money + 20
  775.   @end
  776.  @if `p21 = 5 then do
  777.   @begin
  778.   @do money + 50
  779.   @end
  780.  @if `p21 = 10 then do
  781.   @begin
  782.   @do money + 100
  783.   @end
  784.  @if `p21 = 20 then do
  785.   @begin
  786.   @do money + 200
  787.   @end
  788.  @key
  789.  @do goto slots
  790.  @end
  791. @if `p23 = 43000 then do
  792.  @begin
  793.  @show
  794.  
  795.   `2You win at `09`2 to `01`2 payoffs.
  796.  
  797.  @if `p21 = 1 then do
  798.   @begin
  799.   @do money + 9
  800.   @end
  801.  @if `p21 = 2 then do
  802.   @begin
  803.   @do money + 18
  804.   @end
  805.  @if `p21 = 5 then do
  806.   @begin
  807.   @do money + 45
  808.   @end
  809.  @if `p21 = 10 then do
  810.   @begin
  811.   @do money + 90
  812.   @end
  813.  @if `p21 = 20 then do
  814.   @begin
  815.   @do money + 180
  816.   @end
  817.  @key
  818.  @do goto slots
  819.  @end
  820. @if `p23 = 6100 then do
  821.  @begin
  822.  @show
  823.  
  824.   `2You win at `08`2 to `01`2 payoffs.
  825.  
  826.  @if `p21 = 1 then do
  827.   @begin
  828.   @do money + 8
  829.   @end
  830.  @if `p21 = 2 then do
  831.   @begin
  832.   @do money + 16
  833.   @end
  834.  @if `p21 = 5 then do
  835.   @begin
  836.   @do money + 40
  837.   @end
  838.  @if `p21 = 10 then do
  839.   @begin
  840.   @do money + 80
  841.   @end
  842.  @if `p21 = 20 then do
  843.   @begin
  844.   @do money + 160
  845.   @end
  846.  @key
  847.  @do goto slots
  848.  @end
  849. @if `p23 = 220 then do
  850.  @begin
  851.  @show
  852.  
  853.   `2You win at `07`2 to `01`2 payoffs.
  854.  
  855.  @if `p21 = 1 then do
  856.   @begin
  857.   @do money + 7
  858.   @end
  859.  @if `p21 = 2 then do
  860.   @begin
  861.   @do money + 14
  862.   @end
  863.  @if `p21 = 5 then do
  864.   @begin
  865.   @do money + 35
  866.   @end
  867.  @if `p21 = 10 then do
  868.   @begin
  869.   @do money + 70
  870.   @end
  871.  @if `p21 = 20 then do
  872.   @begin
  873.   @do money + 140
  874.   @end
  875.  @key
  876.  @do goto slots
  877.  @end
  878. @if `p23 = 43 then do
  879.  @begin
  880.  @show
  881.  
  882.   `2You win at `05`2 to `01`2 payoffs.
  883.  
  884.  @if `p21 = 1 then do
  885.   @begin
  886.   @do money + 5
  887.   @end
  888.  @if `p21 = 2 then do
  889.   @begin
  890.   @do money + 10
  891.   @end
  892.  @if `p21 = 5 then do
  893.   @begin
  894.   @do money + 25
  895.   @end
  896.  @if `p21 = 10 then do
  897.   @begin
  898.   @do money + 50
  899.   @end
  900.  @if `p21 = 20 then do
  901.   @begin
  902.   @do money + 100
  903.   @end
  904.  @key
  905.  @do goto slots
  906.  @end
  907. @if `p23 = 300006 then do
  908.  @begin
  909.  @show
  910.  
  911.   `2You win at `02`2 to `01`2 payoffs.
  912.  
  913.  @if `p21 = 1 then do
  914.   @begin
  915.   @do money + 2
  916.   @end
  917.  @if `p21 = 2 then do
  918.   @begin
  919.   @do money + 4
  920.   @end
  921.  @if `p21 = 5 then do
  922.   @begin
  923.   @do money + 10
  924.   @end
  925.  @if `p21 = 10 then do
  926.   @begin
  927.   @do money + 20
  928.   @end
  929.  @if `p21 = 20 then do
  930.   @begin
  931.   @do money + 40
  932.   @end
  933.  @key
  934.  @do goto slots
  935.  @end
  936. @if `p23 = 20006 then do
  937.  @begin
  938.  @show
  939.  
  940.   `2You win at `02`2 to `01`2 payoffs.
  941.  
  942.  @if `p21 = 1 then do
  943.   @begin
  944.   @do money + 2
  945.   @end
  946.  @if `p21 = 2 then do
  947.   @begin
  948.   @do money + 4
  949.   @end
  950.  @if `p21 = 5 then do
  951.   @begin
  952.   @do money + 10
  953.   @end
  954.  @if `p21 = 10 then do
  955.   @begin
  956.   @do money + 20
  957.   @end
  958.  @if `p21 = 20 then do
  959.   @begin
  960.   @do money + 40
  961.   @end
  962.  @key
  963.  @do goto slots
  964.  @end
  965. @if `p23 = 3006 then do
  966.  @begin
  967.  @show
  968.  
  969.   `2You win at `02`2 to `01`2 payoffs.
  970.  
  971.  @if `p21 = 1 then do
  972.   @begin
  973.   @do money + 2
  974.   @end
  975.  @if `p21 = 2 then do
  976.   @begin
  977.   @do money + 4
  978.   @end
  979.  @if `p21 = 5 then do
  980.   @begin
  981.   @do money + 10
  982.   @end
  983.  @if `p21 = 10 then do
  984.   @begin
  985.   @do money + 20
  986.   @end
  987.  @if `p21 = 20 then do
  988.   @begin
  989.   @do money + 40
  990.   @end
  991.  @key
  992.  @do goto slots
  993.  @end
  994. @if `p23 = 106 then do
  995.  @begin
  996.  @show
  997.  
  998.   `2You win at `02`2 to `01`2 payoffs.
  999.  
  1000.  @if `p21 = 1 then do
  1001.   @begin
  1002.   @do money + 2
  1003.   @end
  1004.  @if `p21 = 2 then do
  1005.   @begin
  1006.   @do money + 4
  1007.   @end
  1008.  @if `p21 = 5 then do
  1009.   @begin
  1010.   @do money + 10
  1011.   @end
  1012.  @if `p21 = 10 then do
  1013.   @begin
  1014.   @do money + 20
  1015.   @end
  1016.  @if `p21 = 20 then do
  1017.   @begin
  1018.   @do money + 40
  1019.   @end
  1020.  @key
  1021.  @do goto slots
  1022.  @end
  1023. @if `p23 = 26 then do
  1024.  @begin
  1025.  @show
  1026.  
  1027.   `2You win at `02`2 to `01`2 payoffs.
  1028.  
  1029.  @if `p21 = 1 then do
  1030.   @begin
  1031.   @do money + 2
  1032.   @end
  1033.  @if `p21 = 2 then do
  1034.   @begin
  1035.   @do money + 4
  1036.   @end
  1037.  @if `p21 = 5 then do
  1038.   @begin
  1039.   @do money + 10
  1040.   @end
  1041.  @if `p21 = 10 then do
  1042.   @begin
  1043.   @do money + 20
  1044.   @end
  1045.  @if `p21 = 20 then do
  1046.   @begin
  1047.   @do money + 40
  1048.   @end
  1049.  @key
  1050.  @do goto slots
  1051.  @end
  1052. @show
  1053.  
  1054.   `2I'm sorry, but you `4lose`2 your bet of: `$$`p21
  1055.  
  1056. @if `p21 = 1 then do
  1057.  @begin
  1058.  @do money - 1
  1059.  @end
  1060. @if `p21 = 2 then do
  1061.  @begin
  1062.  @do money - 2
  1063.  @end
  1064. @if `p21 = 5 then do
  1065.  @begin
  1066.  @do money - 5
  1067.  @end
  1068. @if `p21 = 10 then do
  1069.  @begin
  1070.  @do money - 10
  1071.  @end
  1072. @if `p21 = 20 then do
  1073.  @begin
  1074.  @do money - 20
  1075.  @end
  1076. @key
  1077. @do goto slots
  1078.  
  1079. @#ending
  1080. @drawmap
  1081. @update
  1082. @closescript
  1083.  
  1084.